DEKLARASI:
	hari, bulan, tahun: integer
ALGORITMA:
	repeat
		write("Masukkan hari: ")
		read(hari)
	until hari <= -1

	tahun <- hari/365
	hari <- hari % 365

	bulan <- hari/30
	hari <- hari % 30

	write("Tahun: ", tahun)
	writeln()
	write("Bulan: ", bulan)
	writeln()
	write("Hari: ", hari)
	writeln()
